Get Basic team data

library(plotly)

Attache Paket: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

Get season Stats

getTeamSeasonStats(parameters = list(TeamID = basicTeamInfo %>% select(TEAM_ID), Season = "2016-17")) %>% 
  bind_rows() %>% 
  mutate(SEASON_YEAR = "2016-17") -> teamStatsSeason; teamStatsSeason
Unequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to characterUnequal factor levels: coercing to character

Plot Single Team stats

PLot all team stats

plot_teamStats("warriors", "AST")
debugging in: plot_teamStats("warriors", "AST")
debug bei #1:{
    ggplotly(teamStatsComplete %>% filter(GROUP_SET == "Overall") %>% 
        ggplot(aes_(x = "SEASON_YEAR", y = statistic, group = "team", 
            col = "team")) + geom_line(alpha = 0.2) + geom_line(data = teamStatsComplete %>% 
        filter(GROUP_SET == "Overall") %>% filter_(team == team), 
        aes_(x = "SEASON_YEAR", y = statistic, group = 1)))
}
team
[1] "warriors"
teamStatsComplete %>%
    filter(GROUP_SET == "Overall")
teamStatsComplete %>%
    filter(GROUP_SET == "Overall") %>% filter_(team == team)
n
debug bei #2:ggplotly(teamStatsComplete %>% filter(GROUP_SET == "Overall") %>% 
    ggplot(aes_(x = "SEASON_YEAR", y = statistic, group = "team", 
        col = "team")) + geom_line(alpha = 0.2) + geom_line(data = teamStatsComplete %>% 
    filter(GROUP_SET == "Overall") %>% filter_(team == team), 
    aes_(x = "SEASON_YEAR", y = statistic, group = 1)))
n
We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKIyBHZXQgQmFzaWMgdGVhbSBkYXRhCgpgYGB7cn0KbGlicmFyeShkcGx5cikKbGlicmFyeShwbG90bHkpCnRlYW1Db2RlIDwtICJtYXZlcmlja3MiCnRlYW1zX2xpc3QgJT4lIGZpbHRlcihURUFNX0NPREUgPT0gdGVhbUNvZGUpICU+JSBtdXRhdGVfaWYoaXMuZmFjdG9yLCBhcy5jaGFyYWN0ZXIpIC0+IGJhc2ljVGVhbUluZm87IGJhc2ljVGVhbUluZm8KCmBgYAoKIyBHZXQgc2Vhc29uIFN0YXRzCmBgYHtyfQpnZXRUZWFtU2Vhc29uU3RhdHMocGFyYW1ldGVycyA9IGxpc3QoVGVhbUlEID0gYmFzaWNUZWFtSW5mbyAlPiUgc2VsZWN0KFRFQU1fSUQpLCBTZWFzb24gPSAiMjAxNi0xNyIpKSAlPiUgCiAgYmluZF9yb3dzKCkgJT4lIAogIG11dGF0ZShTRUFTT05fWUVBUiA9ICIyMDE2LTE3IikgLT4gdGVhbVN0YXRzU2Vhc29uOyB0ZWFtU3RhdHNTZWFzb24KCmBgYAoKYGBge3J9CnNlYXNvbnMgPC0gYygiMjAxNi0xNyIsICIyMDE1LTE2IiwgIjIwMTQtMTUiLCAiMjAxMy0xNCIsICIyMDEyLTEzIiwgIjIwMTEtMTIiLCAiMjAxMC0xMSIsICIyMDA5LTEwIiwgIjIwMDgtMDkiLCAiMjAwNy0wOCIpCnRlYW1ERiA8LSBjcmVhdGVfVGVhbVNlYXNvbkRGKGJhc2ljVGVhbUluZm8gJT4lIHNlbGVjdChURUFNX0lEKSwgc2Vhc29ucyA9IHNlYXNvbnMpOyB0ZWFtREYKCnRlYW1TdGF0c0NvbXBsZXRlIDwtIGJpbmRfcm93cyhsYXBwbHkoMTpsZW5ndGgoYWxsdGVhbXNERiksIGZ1bmN0aW9uKHgpIGFsbHRlYW1zREZbW3hdXSAlPiUgbXV0YXRlKHRlYW0gPSBuYW1lcyhhbGx0ZWFtc0RGKVtbeF1dKSkpCmhlYWQodGVhbVN0YXRzQ29tcGxldGUpCmBgYAoKCiMgUGxvdCBTaW5nbGUgVGVhbSBzdGF0cwoKYGBge3J9CnRlYW1ERiAlPiUgCiAgZmlsdGVyKEdST1VQX1NFVCA9PSAiT3ZlcmFsbCIpICU+JQogIGdncGxvdChhZXMoeCA9IFNFQVNPTl9ZRUFSLCB5ID0gVywgZ3JvdXAgPSAxKSkgKyBnZW9tX2xpbmUoKQpgYGAKCiMgUExvdCBhbGwgdGVhbSBzdGF0cwoKYGBge3J9CnBsb3RfdGVhbVN0YXRzIDwtIGZ1bmN0aW9uKHRlYW0sIHN0YXRpc3RpYykgewogIGdncGxvdGx5KHRlYW1TdGF0c0NvbXBsZXRlICU+JQogICAgZmlsdGVyKEdST1VQX1NFVCA9PSAiT3ZlcmFsbCIpICU+JQogIGdncGxvdChhZXNfKHggPSAiU0VBU09OX1lFQVIiLCB5ID0gc3RhdGlzdGljLCBncm91cCA9ICJ0ZWFtIiwgY29sID0gInRlYW0iKSkgKyAKICAgIGdlb21fbGluZShhbHBoYSA9IDAuMikgKwogICAgZ2VvbV9saW5lKGRhdGEgPSB0ZWFtU3RhdHNDb21wbGV0ZSAlPiUgZmlsdGVyKEdST1VQX1NFVCA9PSAiT3ZlcmFsbCIpICU+JSBmaWx0ZXJfKHRlYW0gPT0gdGVhbSksIAogICAgICAgICAgICAgIGFlc18oeCA9ICJTRUFTT05fWUVBUiIsIHkgPSBzdGF0aXN0aWMsIGdyb3VwID0gMSkpKQp9CnBsb3RfdGVhbVN0YXRzKCJ3YXJyaW9ycyIsICJBU1QiKQogIApgYGAKCgoKCg==